home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 355 / source / oops_js / oopsmsg1.mod < prev    next >
Encoding:
Modula Implementation  |  1990-02-02  |  2.7 KB  |  61 lines
  1. IMPLEMENTATION MODULE oopsmsg1; (* Ken Badertscher (KBAD) 2/23/87 *)
  2.  
  3. PROCEDURE AssignErr1(VAR errs : ErrMsgs);
  4. BEGIN
  5. errs[0] := '(* ^^^undefined error *)';
  6. errs[10] := '(* ^^^identifier expected *)';
  7. errs[11] := '(* ^^^,  comma expected *)';
  8. errs[12] := '(* ^^^;  semicolon expected *)';
  9. errs[13] := '(* ^^^:  colon expected *)';
  10. errs[14] := '(* ^^^.  period expected *)';
  11. errs[15] := '(* ^^^)  right parenthesis expected *)';
  12. errs[16] := '(* ^^^]  right bracket expected *)';
  13. errs[17] := '(* ^^^}  right brace expected *)';
  14. errs[18] := '(* ^^^=  equal sign expected *)';
  15. errs[19] := '(* ^^^:=  assignment expected *)';
  16. errs[20] := '(* ^^^END expected *)';
  17. errs[21] := '(* ^^^..  ellipsis expected *)';
  18. errs[22] := '(* ^^^(  left parenthesis expected *)';
  19. errs[23] := '(* ^^^OF expected *)';
  20. errs[24] := '(* ^^^TO expected *)';
  21. errs[25] := '(* ^^^DO expected *)';
  22. errs[26] := '(* ^^^UNTIL expected *)';
  23. errs[27] := '(* ^^^THEN expected *)';
  24. errs[28] := '(* ^^^MODULE expected *)';
  25. errs[30] := '(* ^^^IMPORT expected *)';
  26. errs[31] := '(* ^^^factor starts with illegal symbol *)';
  27. errs[32] := '(* ^^^identifier, (, or [ expected *)';
  28. errs[33] := 
  29.   '(* ^^^identifier,ARRAY,RECORD,SET,POINTER,PROCEDURE,(,or [ expected *)';
  30. errs[34] := '(* ^^^Type followed by illegal symbol *)';
  31. errs[35] := '(* ^^^statement starts with illegal symbol *)';
  32. errs[36] := '(* ^^^declaration followed by illegal symbol *)';
  33. errs[37] := '(* ^^^statement part is not allowed in definition module *)';
  34. errs[38] := '(* ^^^export list not allowed in program module *)';
  35. errs[39] := '(* ^^^EXIT not inside a LOOP statement *)';
  36. errs[40] := '(* ^^^illegal character in number *)';
  37. errs[41] := '(* ^^^number too large *)';
  38. errs[42] := '(* ^^^ (* comment without closing "*)" *)';
  39. errs[50] := '(* ^^^identifier not declared or not visible *)';
  40. errs[51] := '(* ^^^object should be a constant *)';
  41. errs[52] := '(* ^^^object should be a type *)';
  42. errs[53] := '(* ^^^object should be a variable *)';
  43. errs[54] := '(* ^^^object should be a procedure *)';
  44. errs[55] := '(* ^^^object should be a module *)';
  45. errs[56] := '(* ^^^type should be a subrange *)';
  46. errs[57] := '(* ^^^type should be a record *)';
  47. errs[58] := '(* ^^^type should be an array *)';
  48. errs[59] := '(* ^^^type should be a set *)';
  49. errs[60] := '(* ^^^illegal base type of set *)';
  50. errs[61] := '(* ^^^incompatible type of label or of subrange bound *)';
  51. errs[62] := '(* ^^^multiply defined case (label) *)';
  52. errs[63] := '(* ^^^low bound > high bound *)';
  53. errs[64] := '(* ^^^more actual than formal parameters *)';
  54. errs[65] := '(* ^^^fewer actual than formal parameters *)';
  55. errs[66] := '(* ^^^more parameters in I than in D *)';
  56.  
  57. END AssignErr1;
  58.  
  59. END oopsmsg1.
  60.  
  61.